home *** CD-ROM | disk | FTP | other *** search
/ Mission to McDonaldLand / Mission To McDonaldLand.iso / calnz.dxr / 00013_Script_btn_norm < prev    next >
Text File  |  1998-10-25  |  553b  |  29 lines
  1. property ancestor 
  2. on birth me,sp, no, ro, pr,lc,tg,sc,ds,rs,urs,ObjsP,titleP
  3.   set  ancestor  to birth(script "bt",sp, no,ro,pr,lc,tg,sc,ds,rs,urs,ObjsP,TitleP) 
  4.   return me
  5. end
  6.  
  7. on click me
  8.   if the mystate of me ="up" then
  9.     press (me)
  10.     doScript(me)
  11.     
  12.   end if
  13. end click
  14.  
  15. on clickup me
  16.   if the mystate of me = "down" then
  17.     norm(me)  
  18.     doUpScript(me)
  19.   end if
  20. end clickUp
  21.  
  22.  
  23. on press me
  24.   set the mystate of me = "down"
  25.   set the member of sprite the myChannel of me to the myPressed of me
  26.   updateStage
  27. end
  28.  
  29.